; CLEAR ROUTINES 1
nolist 
        org &4000
; long &3c46
; ------------------------------------------------------------------------------------------------------------
; CLEAR0_DATA of screen background
;
; NEW BACKGROUND BY SUPER SYLVESTRE
;
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF F7 FF FF FF FF FF FF c8
; 95 E4 E5 29 A8 AC D7 F5 d0
; 93 E5 7C C8 C9 FB B5 D7 d8
; 1D C6 4E 9C CB BF 1B 1B e0
; 1B D7 4F 0B AF 8A 5F 15 e8
; FF F7 FF FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; --------------------------- 260
CLEAR0_c8f0_DATA1 equ &F7

CLEAR0_d0_DATA1  equ &95
CLEAR0_d0_DATA2  equ &E4
CLEAR0_d0_DATA3  equ &E5
CLEAR0_d0_DATA4  equ &29
CLEAR0_d0_DATA5  equ &A8

CLEAR0_d8_DATA1  equ &93
CLEAR0_d8_DATA2  equ &E5
CLEAR0_d8_DATA3  equ &7C
CLEAR0_d8_DATA4  equ &C8
CLEAR0_d8_DATA5  equ &C9

CLEAR0_e0_DATA1  equ &1D
CLEAR0_e0_DATA2  equ &C6
CLEAR0_e0_DATA3  equ &4E
CLEAR0_e0_DATA4  equ &9C
CLEAR0_e0_DATA5  equ &CB

CLEAR0_e8_DATA1  equ &1B
CLEAR0_e8_DATA2  equ &D7
CLEAR0_e8_DATA3  equ &4F
CLEAR0_e8_DATA4  equ &0B
CLEAR0_e8_DATA5  equ &AF
; ------------------------------------------------------------------------------------------------------------
; CLEAR1_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; F7 FF FF FF FF FF FF FF c8
; E4 E5 29 A8 AC D7 F5 95 d0
; E5 7C C8 C9 FB B5 D7 93 d8
; C6 4E 9C CB BF 1B 1B 1D e0
; D7 4F 0B AF 8A 5F 15 1B e8
; F7 FF FF FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR1_c8f0_DATA1 equ &F7

CLEAR1_d0_DATA1  equ &E4
CLEAR1_d0_DATA2  equ &E5
CLEAR1_d0_DATA3  equ &29
CLEAR1_d0_DATA4  equ &A8
CLEAR1_d0_DATA5  equ &AC

CLEAR1_d8_DATA1  equ &E5
CLEAR1_d8_DATA2  equ &7C
CLEAR1_d8_DATA3  equ &C8
CLEAR1_d8_DATA4  equ &C9
CLEAR1_d8_DATA5  equ &FB

CLEAR1_e0_DATA1  equ &C6
CLEAR1_e0_DATA2  equ &4E
CLEAR1_e0_DATA3  equ &9C
CLEAR1_e0_DATA4  equ &CB
CLEAR1_e0_DATA5  equ &BF

CLEAR1_e8_DATA1  equ &D7
CLEAR1_e8_DATA2  equ &4F
CLEAR1_e8_DATA3  equ &0B
CLEAR1_e8_DATA4  equ &AF
CLEAR1_e8_DATA5  equ &8A
; ------------------------------------------------------------------------------------------------------------
; CLEAR2_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF FF FF F7 c8
; E5 29 A8 AC D7 F5 95 E4 d0
; 7C C8 C9 FB B5 D7 93 E5 d8
; 4E 9C CB BF 1B 1B 1D C6 e0
; 4F 0B AF 8A 5F 15 1B D7 e8
; FF FF FF FF FF FF FF F7 f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR2_d0_DATA1  equ &E5
CLEAR2_d0_DATA2  equ &29
CLEAR2_d0_DATA3  equ &A8
CLEAR2_d0_DATA4  equ &AC
CLEAR2_d0_DATA5  equ &D7

CLEAR2_d8_DATA1  equ &7C
CLEAR2_d8_DATA2  equ &C8
CLEAR2_d8_DATA3  equ &C9
CLEAR2_d8_DATA4  equ &FB
CLEAR2_d8_DATA5  equ &B5

CLEAR2_e0_DATA1  equ &4E
CLEAR2_e0_DATA2  equ &9C
CLEAR2_e0_DATA3  equ &CB
CLEAR2_e0_DATA4  equ &BF
CLEAR2_e0_DATA5  equ &1B

CLEAR2_e8_DATA1  equ &4F
CLEAR2_e8_DATA2  equ &0B
CLEAR2_e8_DATA3  equ &AF
CLEAR2_e8_DATA4  equ &8A
CLEAR2_e8_DATA5  equ &5F
; ------------------------------------------------------------------------------------------------------------
; CLEAR3_DATA1 of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF FF F7 FF c8
; 29 A8 AC D7 F5 95 E4 E5 d0
; C8 C9 FB B5 D7 93 E5 7C d8
; 9C CB BF 1B 1B 1D C6 4E e0
; 0B AF 8A 5F 15 1B D7 4F e8
; FF FF FF FF FF FF F7 FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR3_d0_DATA1  equ &29
CLEAR3_d0_DATA2  equ &A8
CLEAR3_d0_DATA3  equ &AC
CLEAR3_d0_DATA4  equ &D7
CLEAR3_d0_DATA5  equ &F5

CLEAR3_d8_DATA1  equ &C8
CLEAR3_d8_DATA2  equ &C9
CLEAR3_d8_DATA3  equ &FB
CLEAR3_d8_DATA4  equ &B5
CLEAR3_d8_DATA5  equ &D7

CLEAR3_e0_DATA1  equ &9C
CLEAR3_e0_DATA2  equ &CB
CLEAR3_e0_DATA3  equ &BF
CLEAR3_e0_DATA4  equ &1B
CLEAR3_e0_DATA5  equ &1B

CLEAR3_e8_DATA1  equ &0B
CLEAR3_e8_DATA2  equ &AF
CLEAR3_e8_DATA3  equ &8A
CLEAR3_e8_DATA4  equ &5F
CLEAR3_e8_DATA5  equ &15
; ------------------------------------------------------------------------------------------------------------
; CLEAR4_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF F7 FF FF c8
; A8 AC D7 F5 95 E4 E5 29 d0
; C9 FB B5 D7 93 E5 7C C8 d8
; CB BF 1B 1B 1D C6 4E 9C e0
; AF 8A 5F 15 1B D7 4F 0B e8
; FF FF FF FF FF F7 FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR4_d0_DATA1  equ &A8
CLEAR4_d0_DATA2  equ &AC
CLEAR4_d0_DATA3  equ &D7
CLEAR4_d0_DATA4  equ &F5
CLEAR4_d0_DATA5  equ &95

CLEAR4_d8_DATA1  equ &C9
CLEAR4_d8_DATA2  equ &FB
CLEAR4_d8_DATA3  equ &B5
CLEAR4_d8_DATA4  equ &D7
CLEAR4_d8_DATA5  equ &93

CLEAR4_e0_DATA1  equ &CB
CLEAR4_e0_DATA2  equ &BF
CLEAR4_e0_DATA3  equ &1B
CLEAR4_e0_DATA4  equ &1B
CLEAR4_e0_DATA5  equ &1D

CLEAR4_e8_DATA1  equ &AF
CLEAR4_e8_DATA2  equ &8A
CLEAR4_e8_DATA3  equ &5F
CLEAR4_e8_DATA4  equ &15
CLEAR4_e8_DATA5  equ &1B
; ------------------------------------------------------------------------------------------------------------
; CLEAR5_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF F7 FF FF FF c8
; AC D7 F5 95 E4 E5 29 A8 d0
; FB B5 D7 93 E5 7C C8 C9 d8
; BF 1B 1B 1D C6 4E 9C CB e0
; 8A 5F 15 1B D7 4F 0B AF e8
; FF FF FF FF F7 FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR5_c8f0_DATA1 equ &F7

CLEAR5_d0_DATA1  equ &AC
CLEAR5_d0_DATA2  equ &D7
CLEAR5_d0_DATA3  equ &F5
CLEAR5_d0_DATA4  equ &95
CLEAR5_d0_DATA5  equ &E4

CLEAR5_d8_DATA1  equ &FB
CLEAR5_d8_DATA2  equ &B5
CLEAR5_d8_DATA3  equ &D7
CLEAR5_d8_DATA4  equ &93
CLEAR5_d8_DATA5  equ &E5

CLEAR5_e0_DATA1  equ &BF
CLEAR5_e0_DATA2  equ &1B
CLEAR5_e0_DATA3  equ &1B
CLEAR5_e0_DATA4  equ &1D
CLEAR5_e0_DATA5  equ &C6

CLEAR5_e8_DATA1  equ &8A
CLEAR5_e8_DATA2  equ &5F
CLEAR5_e8_DATA3  equ &15
CLEAR5_e8_DATA4  equ &1B
CLEAR5_e8_DATA5  equ &D7
; ------------------------------------------------------------------------------------------------------------
; CLEAR6_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF F7 FF FF FF FF c8
; D7 F5 95 E4 E5 29 A8 AC d0
; B5 D7 93 E5 7C C8 C9 FB d8
; 1B 1B 1D C6 4E 9C CB BF e0
; 5F 15 1B D7 4F 0B AF 8A e8
; FF FF FF F7 FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR6_c8f0_DATA1 equ &F7

CLEAR6_d0_DATA1  equ &D7
CLEAR6_d0_DATA2  equ &F5
CLEAR6_d0_DATA3  equ &95
CLEAR6_d0_DATA4  equ &E4
CLEAR6_d0_DATA5  equ &E5

CLEAR6_d8_DATA1  equ &B5
CLEAR6_d8_DATA2  equ &D7
CLEAR6_d8_DATA3  equ &93
CLEAR6_d8_DATA4  equ &E5
CLEAR6_d8_DATA5  equ &7C

CLEAR6_e0_DATA1  equ &1B
CLEAR6_e0_DATA2  equ &1B
CLEAR6_e0_DATA3  equ &1D
CLEAR6_e0_DATA4  equ &C6
CLEAR6_e0_DATA5  equ &4E

CLEAR6_e8_DATA1  equ &5F
CLEAR6_e8_DATA2  equ &15
CLEAR6_e8_DATA3  equ &1B
CLEAR6_e8_DATA4  equ &D7
CLEAR6_e8_DATA5  equ &4F
; ------------------------------------------------------------------------------------------------------------
; CLEAR7_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF F7 FF FF FF FF FF c8
; F5 95 E4 E5 29 A8 AC D7 d0
; D7 93 E5 7C C8 C9 FB B5 d8
; 1B 1D C6 4E 9C CB BF 1B e0
; 15 1B D7 4F 0B AF 8A 5F e8
; FF FF F7 FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR7_c8f0_DATA1 equ &F7

CLEAR7_d0_DATA1  equ &F5
CLEAR7_d0_DATA2  equ &95
CLEAR7_d0_DATA3  equ &E4
CLEAR7_d0_DATA4  equ &E5
CLEAR7_d0_DATA5  equ &29

CLEAR7_d8_DATA1  equ &D7
CLEAR7_d8_DATA2  equ &93
CLEAR7_d8_DATA3  equ &E5
CLEAR7_d8_DATA4  equ &7C
CLEAR7_d8_DATA5  equ &C8

CLEAR7_e0_DATA1  equ &1B
CLEAR7_e0_DATA2  equ &1D
CLEAR7_e0_DATA3  equ &C6
CLEAR7_e0_DATA4  equ &4E
CLEAR7_e0_DATA5  equ &9C

CLEAR7_e8_DATA1  equ &15
CLEAR7_e8_DATA2  equ &1B
CLEAR7_e8_DATA3  equ &D7
CLEAR7_e8_DATA4  equ &4F
CLEAR7_e8_DATA5  equ &0B

; ------------------------------------------------------------------------------------------------------------
; CLEAR0 ROUTINE
; ---------------------------
CLEAR00_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA5
	dec l
	ld (hl),CLEAR0_d0_DATA4
	dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	dec l
	ld (hl),CLEAR0_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA1
	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	ld (hl),CLEAR0_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR01_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee f0 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR02_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),CLEAR0_c8f0_DATA1
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR03_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR4_d0_DATA4
        dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR04_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR05_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR06_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR07_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR08_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR09_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l	
	ld (hl),CLEAR4_d8_DATA4
	dec l	
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l	
	ld (hl),CLEAR4_e8_DATA4
	dec l	
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA5
	dec l
	ld (hl),CLEAR4_d0_DATA4
	dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	dec l
	ld (hl),CLEAR4_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA1
	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	ld (hl),CLEAR4_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR1 ROUTINE
; ---------------------------
CLEAR10_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA5
	dec l
	ld (hl),CLEAR1_d0_DATA4
	dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	dec l
	ld (hl),CLEAR1_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA1
	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	ld (hl),CLEAR1_d8_DATA5
	res 4,h        ; 11 ee ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR11_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	set 5,h        ; 11 ee ee ee ee f0 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR12_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR13_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR5_d0_DATA4
        dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR14_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR15_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	set 4,h        ; 11 ee ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR16_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR17_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; XX ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR18_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR19_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l	
	ld (hl),CLEAR5_d8_DATA4
	dec l	
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l	
	ld (hl),CLEAR5_e8_DATA4
	dec l	
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1 
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA5
	dec l
	ld (hl),CLEAR5_d0_DATA4
	dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	dec l
	ld (hl),CLEAR5_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA1
	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	ld (hl),CLEAR5_d8_DATA5
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR2 ROUTINE ZERO
; ---------------------------
CLEAR20_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA5
	dec l
	ld (hl),CLEAR2_d0_DATA4
	dec l
	ld (hl),CLEAR2_d0_DATA3
	dec l
	ld (hl),CLEAR2_d0_DATA2
	dec l
	ld (hl),CLEAR2_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA1
	inc l
	ld (hl),CLEAR2_d8_DATA2
	inc l
	ld (hl),CLEAR2_d8_DATA3
	inc l
	ld (hl),CLEAR2_d8_DATA4
	inc l
	ld (hl),CLEAR2_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA1
	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	inc l
	ld (hl),CLEAR2_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA5
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	dec l
	ld (hl),CLEAR2_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR21_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR22_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR2_e8_DATA1
	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	inc l
	ld (hl),CLEAR2_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA5
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	dec l
	ld (hl),CLEAR2_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee 11 XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR23_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR2_d8_DATA2
	inc l
	ld (hl),CLEAR2_d8_DATA3
	inc l
	ld (hl),CLEAR2_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee 11 XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR6_d0_DATA4
        dec l
	ld (hl),CLEAR6_d0_DATA3
	dec l
	ld (hl),CLEAR6_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR24_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR25_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR26_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR27_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; XX ee ee 11 XX f0 11110000 set 4,h
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR28_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 XX f0 11110000 set 4,h
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR29_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l	
	ld (hl),CLEAR6_d8_DATA4
	dec l	
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l	
	ld (hl),CLEAR6_e8_DATA4
	dec l	
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),CLEAR6_c8f0_DATA1
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA5
	dec l
	ld (hl),CLEAR6_d0_DATA4
	dec l
	ld (hl),CLEAR6_d0_DATA3
	dec l
	ld (hl),CLEAR6_d0_DATA2
	dec l
	ld (hl),CLEAR6_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA1
	inc l
	ld (hl),CLEAR6_d8_DATA2
	inc l
	ld (hl),CLEAR6_d8_DATA3
	inc l
	ld (hl),CLEAR6_d8_DATA4
	inc l
	ld (hl),CLEAR6_d8_DATA5
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA1
	inc l
	ld (hl),CLEAR6_e8_DATA2
	inc l
	ld (hl),CLEAR6_e8_DATA3
	inc l
	ld (hl),CLEAR6_e8_DATA4
	inc l
	ld (hl),CLEAR6_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA5
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	dec l
	ld (hl),CLEAR6_e0_DATA1
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR3 ROUTINE
; ---------------------------
CLEAR30_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA5
	dec l
	ld (hl),CLEAR3_d0_DATA4
	dec l
	ld (hl),CLEAR3_d0_DATA3
	dec l
	ld (hl),CLEAR3_d0_DATA2
	dec l
	ld (hl),CLEAR3_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA1
	inc l
	ld (hl),CLEAR3_d8_DATA2
	inc l
	ld (hl),CLEAR3_d8_DATA3
	inc l
	ld (hl),CLEAR3_d8_DATA4
	inc l
	ld (hl),CLEAR3_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA1
	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	inc l
	ld (hl),CLEAR3_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA5
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	dec l
	ld (hl),CLEAR3_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR31_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR32_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR3_e8_DATA1
	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	inc l
	ld (hl),CLEAR3_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA5
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	dec l
	ld (hl),CLEAR3_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee 11 ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR33_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR3_d8_DATA2
	inc l
	ld (hl),CLEAR3_d8_DATA3
	inc l
	ld (hl),CLEAR3_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee 11 ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR7_d0_DATA4
        dec l
	ld (hl),CLEAR7_d0_DATA3
	dec l
	ld (hl),CLEAR7_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR34_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR35_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR36_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR37_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; XX ee 11 ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR38_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR39_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l	
	ld (hl),CLEAR7_d8_DATA4
	dec l	
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l	
	ld (hl),CLEAR7_e8_DATA4
	dec l	
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA5
	dec l
	ld (hl),CLEAR7_d0_DATA4
	dec l
	ld (hl),CLEAR7_d0_DATA3
	dec l
	ld (hl),CLEAR7_d0_DATA2
	dec l
	ld (hl),CLEAR7_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA1
	inc l
	ld (hl),CLEAR7_d8_DATA2
	inc l
	ld (hl),CLEAR7_d8_DATA3
	inc l
	ld (hl),CLEAR7_d8_DATA4
	inc l
	ld (hl),CLEAR7_d8_DATA5
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA1
	inc l
	ld (hl),CLEAR7_e8_DATA2
	inc l
	ld (hl),CLEAR7_e8_DATA3
	inc l
	ld (hl),CLEAR7_e8_DATA4
	inc l
	ld (hl),CLEAR7_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA5
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	dec l
	ld (hl),CLEAR7_e0_DATA1
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR4 ROUTINE
; ---------------------------
CLEAR40_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA5
	dec l
	ld (hl),CLEAR4_d0_DATA4
	dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	dec l
	ld (hl),CLEAR4_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA1
	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	ld (hl),CLEAR4_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR41_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR42_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX 11 ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR43_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 3,h        ; ee 11 ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR0_d0_DATA4
        dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR44_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR45_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR46_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR47_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR48_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR49_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l	
	ld (hl),CLEAR0_d8_DATA4
	dec l	
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l	
	ld (hl),CLEAR0_e8_DATA4
	dec l	
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA5
	dec l
	ld (hl),CLEAR0_d0_DATA4
	dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	dec l
	ld (hl),CLEAR0_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA1
	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	ld (hl),CLEAR0_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR5 ROUTINE
CLEAR50_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA5
	dec l
	ld (hl),CLEAR5_d0_DATA4
	dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	dec l
	ld (hl),CLEAR5_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA1
	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	ld (hl),CLEAR5_d8_DATA5
	res 4,h        ; ee ee ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR51_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	set 5,h        ; ee ee ee ee 11 f0 11110000 set 5,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR52_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR53_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; 11 ee ee ee XX c8 11001000 set 3,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR1_d0_DATA4
        dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR54_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR55_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	set 4,h        ; ee ee ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR56_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR57_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; XX ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR58_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR59_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l	
	ld (hl),CLEAR1_d8_DATA4
	dec l	
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l	
	ld (hl),CLEAR1_e8_DATA4
	dec l	
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA5
	dec l
	ld (hl),CLEAR1_d0_DATA4
	dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	dec l
	ld (hl),CLEAR1_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA1
	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	ld (hl),CLEAR1_d8_DATA5
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
list
; end of file
EOF_ADDRESS
EOF_LENGTH equ EOF_ADDRESS-&4000
